home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 65 / 065.d81 / font changer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  3.3 KB  |  94 lines
  1. 1 ifpeek(787)<>1thensys57812"fnt",8,0:poke780,0:poke781,0:poke782,56:sys65493
  2. 2 poke787,1:ifch=1thenpoke53272,31:goto27
  3. 3 poke53272,31:poke53281,0:poke53280,11:print"[147][158]":poke55,0:poke56,56:clr
  4. 4 f1$="[204][207][193][196][211][212][193] [210]":f2$="[208] [210] [197] [211] [197] [206] [212] [211]":f3$="[194][217]":f4$="[202][197][198][198][210][197][217] [204]. [202][207][206][197][211]"
  5. 5 s=54272:fori=0to24:pokes+l,0:next
  6. 6 pokes+1,100:pokes+5,9:pokes+24,15
  7. 7 c(1)=15:c(2)=12:c(3)=11:f$="   [198][160][207][160][206][160][212][160][160][160][195][160][200][160][193][160][206][160][199][160][197] [210]":mu=1
  8. 8 c(7)=11:c(6)=12:c(5)=15:c(4)=12:fori=1to3:readfo$(i):fo$(i)=fo$(i)+" [198][207][206][212]"
  9. 9 next:readfo$(4),fo$(5),fo$(6):i=0
  10. 10 goto24
  11. 11 poke646,6:print""spc(5)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  12. 12 forc=1to5:printspc(5)"[221]                             [221]":next
  13. 13 printspc(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":gosub14:return
  14. 14 poke198,0:poke214,6:print:print:forc=1to10:poke646,14:ifmu=cthenpoke646,7
  15. 15 printtab(13)fo$(c):next:mu=9:c=6:gosub45:mu=1
  16. 16 poke214,18:print:print"   [158] [213][211][197] [195][213][210][211][207][210]/[210][197][212][213][210][206] [212][207][160][211][197][204][197][195][212] [198][207][206][212] "
  17. 17 print"    [155]abcdefghijklmnopqrstuvwxyz   12345"
  18. 18 print"    [193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]   67890[145]":return
  19. 19 poke646,c(i+2):print""spc(13)f1$
  20. 20 poke646,c(i+1):printspc(13)f2$
  21. 21 poke646,c(i):printspc(6)f$
  22. 22 poke646,c(i+1):printspc(19)f3$
  23. 23 poke646,c(i+2):printspc(12)f4$:return
  24. 24 gosub11:goto27
  25. 25 i=i+1:ifi=5theni=1
  26. 26 gosub19:return
  27. 27 geta$:gosub43:gosub25:ifa$=""then27
  28. 28 um=mu:ifa$="[145]"thenmu=mu-1:ifmu<1thenmu=6
  29. 29 ifa$=""thenmu=mu+1:ifmu>6thenmu=1
  30. 30 ifa$=chr$(13)then46
  31. 31 poke214,6+um:print:printtab(13)"[154]"fo$(um)
  32. 32 poke214,6+mu:print:printtab(13)"[158]"fo$(mu):goto27
  33. 33 i=1:gosub19
  34. 34 ifa$="q"then36
  35. 35 ch=1:loadfi$,8,1
  36. 36 fori=62464to62564:pokei,0:next
  37. 37 poke787,0:open15,8,15,"r0:loadstar briefs=loadstar briefs":input#15,er
  38. 38 close15:poke53272,21
  39. 39 ifer<>63thenend
  40. 40 a$="loadstar briefs":q$=chr$(34):poke53281,0:poke53280,0:print"[147]"
  41. 41 print"[144]load"q$a$q$",8"
  42. 42 print"run":poke631,13:poke632,13:poke198,2:end
  43. 43 c=c+1:ifc>7thenc=1
  44. 44 poke646,c(c):poke214,6+mu:print:printtab(13)fo$(mu):return
  45. 45 poke214,9+mu:print:printtab(17)"[154]"fo$(mu):return
  46. 46 ifmu>3then51
  47. 47 gosub61:ch=1:loadaa$+" font",8,1
  48. 48 data"128"
  49. 49 data"[195][207][205][205][207][196][207][210][197]","[204][207][193][196][211][212][193][210]","[213][211][197][160][217][207][213][210][160][207][215][206][160][198][207][206][212]","[201][206][211][212][193][204][204][160][206][197][215][160][198][207][206][212]"
  50. 50 data"[210][197][212][213][210][206][160][212][207][160][204][207][193][196][211][212][193][210] [194][210][201][197][198][211]"
  51. 51 onmu-3goto66,52,36
  52. 52 poke214,20:print:foru=1to2:print"                                      ";
  53. 53 next:print"":fa$="fnt"
  54. 54 foru=1to4:poke214,20:print:printtab(8)"[155][201][206][211][197][210][212] [211][201][196][197]"u"of [204][207][193][196][211][212][193][210]"
  55. 55 printtab(6)"[193][206][196][160][208][210][197][211][211][160][210][197][212][213][210][206][155]/ [158][209][155] [212][207][160][193][194][207][210][212]"
  56. 56 geta$:ifa$<>"q"anda$<>chr$(13)then56
  57. 57 ifa$="q"thenrun
  58. 58 fa$="fnt":close15:open15,8,15,"s0:fnt"
  59. 59 gosub300:rem s57812fa$,8:poke193,00:poke194,56:poke174,00:poke175,64:sys62954
  60. 60 pokes+4,37:fort=0to500:next:pokes+4,36:next:run
  61. 61 aa$="":fori=1tolen(fo$(mu))-5
  62. 62 a2$=mid$(fo$(mu),i,1)
  63. 63 ifa2$<"[193]"ora2$>"[218]"thenaa$=aa$+a2$:next:goto65
  64. 64 aa$=aa$+chr$(asc(a2$)-128):next
  65. 65 i=0:return
  66. 66 poke214,18:print:fori=1to5:print"                                      "
  67. 67 next:print"":poke214,19:print:print"[158][197]nter name of font: ";
  68. 68 poke53272,23:li=16:gosub76:poke53272,31:print:ifw$=""thenrun
  69. 69 poke214,19:print:print"          [159][201]nsert disk/[159]hit[158] [210][197][212][213][210][206]  "
  70. 70 geta$:ifa$<>chr$(13)then70
  71. 71 open15,8,15,"i0:":open2,8,2,w$+",p,r":input#15,e$,e$:ife$<>"ok"then75
  72. 72 get#2,a$,a$:fori=14336to15072step4:get#2,a$,a1$,a2$,a3$
  73. 73 pokei,asc(a$+chr$(0)):pokei+1,asc(a1$+chr$(0))
  74. 74 pokei+2,asc(a2$+chr$(0)):pokei+3,asc(a3$+chr$(0)):next:close2:run
  75. 75 print"[147]"e$:print"press a key...":poke198,0:wait198,1:run
  76. 76 w$="":print">[146][157]";:iflimit=0thenlimit=80
  77. 77 geta$:ifa$="[145]"ora$=""ora$="[157]"ora$=""ora$=""ora$="[147]"ora$=""then77
  78. 78 as=asc(a$):ifas=13oras=141oras=20then83
  79. 79 ifpeek(653)=2orpeek(653)=4then77
  80. 80 iflen(w$)=limitthenifas<>20andas<>13andas<>141then77
  81. 81 ifas=34or(as>=133andas<=140)or(as>=1andas<=31)then77
  82. 82 w$=w$+a$:printa$">[146][157]";:goto77
  83. 83 ifas=20andw$<>""thenw$=left$(w$,len(w$)-1):print"[157]<[146] [157][157]";:goto77
  84. 84 ifas=20andw$=""then77
  85. 85 ifas=13thenprint" ":limit=0:return
  86. 200 sys57812fa$,8:poke193,00:poke194,56:poke174,00:poke175,64:sys62954
  87. 300 poke780,2:sys65466
  88. 310 poke824,70:poke825,78:poke826,84
  89. 320 poke780,3:poke781,56:poke782,3:sys65469
  90. 330 poke251,0:poke252,56
  91. 340 poke780,251:poke781,0:poke782,64:sys65496
  92. 350 return
  93. 10000 open15,8,15,"s0:font changer":save"font changer",8:end
  94.